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Foreword 

No matter how much kids hate school, there are some things 
about it that are undeniably fun. Hopefully the programs in this 
book will make you think fondly of your own days at school. 

School Days is the third of the Itty Bitty Bytes books for the 
ATARI® Computer. The programs in this book were developed 
on the ATARI 400/800™ Computer, but they will work as well on 
the 600XL™, 800XL™, and 1400XL™. 

Each book in the series is designed to bring you twenty fun 
programs and, at the same time, teach you something about 
BASIC. Typing in the programs is hard work. You must be 
careful to number the lines exactly, spell the words correctly, 
and put in all the right punctuation. But you will feel extra good 
when your program runs smoothly! 

Always read the explanations next to each program. Some- 
times there are additions or changes that you can make to 
improve the program. Once you see what the program is all 
about, feel free to experiment with it — and by all means com- 
bine programs that work well together. The more you can do to 
make a program reflect your own special personality, the more 
you will enjoy it. Let me know if you find some nifty changes! 

The Itty Bitty Bytes books have grown out of the teaching 
experiences I’ve had with my computer students. Special thank- 
yous go to all my COMPU-KIDS — and to my own kids, too — 
who keep bringing me one good idea after another. They are 
my severest critics, but my most outstanding asset. 

Happy computing! 

Claire Bailey Passantino 


ATARI® is a registered trademark of Atari, Inc. 400, 800, 600XL, 800XL, 
and 1400XL are trademarks of Atari, Inc. 
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A Note to Parents and Teachers 

You bought the computer. You read the manuals. You did the demo pro- 
grams. You and/or your children may even have taken some computer class- 
es. But now the computer is just sitting there. Everyone was so enthusiastic. 
What happened? 

The novelty of a new computer will take you just so far. Beyond that point, 
a continuing interest in this incredible tool is directly related to its usefulness. 
“Not useful” equates to “not used.” So the problem becomes, what can 
computers do that children would find useful? What kinds of things would 
encourage children to expend the energy needed to create their own comput- 
er programs? 

Each Itty Bitty Bytes book in the Creative Pastimes series is packed with 
computer activities appealing to young programmers. Simple games, con- 
tests, races, pictures, designs, songs, riddles, charts, tests, and more — all are 
designed to be fun while reinforcing beginning computer concepts and skills. 

Besides providing fun, there are fringe benefits to having children write 
their own programs. In working with children, I have found that computer 
programming encourages them to: 

• Think creatively. 

• Use logical thinking skills. 

• Attend to details. 

• Take small steps to achieve a goal. 

• Personalize programs. 

• Develop pride and self-esteem. 

• Appreciate packaged software. 

To help children enjoy doing their own programs, here are some sug- 
gested DOs and DON’Ts: 

• DO encourage children to type in their own programs. With younger 
children, bargain: “You type this line and I’ll type the next one.” (Save the 
long lines for yourself!) 

• DON’T criticize typing expertise. Speed and correct fingering are typing 
skills that are minimally related to computer programming. 

• DO allow children to make mistakes. 

• DO help them find the errors they’ve made. (This is called “debugging” 
the program.) 

• DON’T worry when there is an error message. This means that a mistake 
has been made. Check the program for “bugs.” (The ATARI Computer 
will give you an “ERROR” when you go over a “READY” signal. Ignore 
this message. The computer is trying to “READ Y” and there is no “Y” to 
read.) 
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• DO encourage children to read and understand the program 
explanations. 

• DON’T, however, force the issue. Some people learn by reading. Others 
learn by doing. As skills are repeated over and over in different contexts, 
children may just “catch on.” 

• DO be aware of some common pitfalls. Remember to: 

1 . Use line numbers. 

2. Press RETURN after you type in a line. 

3. Give great attention to spelling and punctuation. Quotation marks, 
commas, semicolons, colons, and even spaces are very important. 

4. Save your program before you turn off the computer. 

• DO help children save their programs on tape or disk so they can use 
them again and again. If you have a printer, use it to make “hard” copies 
of each program. People like to see themselves in print. 

• DON’T enter commands in reversed or lower-case characters. (Reversed 
characters are produced by pressing ‘VK.” Press >>IL again to return to 
regular characters. Lower-case letters are produced by pressing the 
“CAPS/LOWR” key. To return to capital letters, press the “SHIFT” and 
the “CAPS/LOWR” keys simultaneously. 

• DO praise children for a job well done. And enjoy the programs that 
they’ve created. 

• DO modify and use programs that you yourself find useful. 

It is my sincere hope that the Itty Bitty Bytes books will help you and your 
children establish a healthy working relationship with your computer. Take 
that computer off the shelf! And let me know how things are working out! 


School Days 

for the ATARI® Computer 


Main ideas: Using OPEN. ..GET for instant input from the keyboard 
Using FOR. ..NEXT in graphics to fill in an area 
Making stripes and checks 

1 0 Clears the screen 

14 A reminder that the T-shirt drawing is coming up. 

15 The shirt will be drawn in color 1, which is usually gold. 

20-60 Draws the top of the T-shirt, a rectangle that extends from boxes 28 
to 50 across and from boxes 2 to 6 down. 

70-110 Draws another rectangle for the bottom of the shirt. 

120 A remark that the pants drawing is coming up. 

130 The pants will be drawn in color 2, which is usually light green. 
140-180 Draws a big rectangle for the pants. 

190 Draws a line from (39,24) to (39,26) in color 0, which is the back- 
ground color, to form the legs of the pants. 

At this point you may want to stop and have some fun. You may try different 
combinations to produce stripes and checks. Simply change one or all of the 
following lines by adding the words STEP 2. For example: 

20 FOR X=28 TO 50 STEP 2 

The lines you can play with are lines 20, 30, 70, 80, 140, and 150. Change 
some of them — or all of them — and see the results. 

The last section allows you to select the color combination of your choice. 

200 A reminder that the color selection section is coming up. 

201 Prints this message in the text window. 

205 Opens the keyboard for input. 

210-220 Selects a random color from the 16 colors available (refer to the 
Setcolor Chart in the Appendix). Also selects a random shade for 
the color (0 is the darkest; 15 is the lightest). Changes color 1 by 
using setcolor 0. 

230-235 Selects a color and a shade for the pants, which are drawn in color 
2. To change color 2, you use setcolor 1. 

240 Gets the code number of any key you press. (In effect, this just 
makes the program pause until you press a key.) * 

250 Goes to line 210 to change the colors again. 

When the drawing color matches the background color, you go topless — or 
bottomless. Oh my! 
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Clothing the Bod 

It’s time to go to school. 

You can’t go naked. 

Better find something to wear! 

10 GR.5 

14 REM T-SHIRT 

15 COLOR 1 

20 FOR X=28 TO 50 
30 FOR Y=2 TO 6 
40 PLOT X, Y 
50 NEXT Y 
60 NEXT X 
70 FOR X=34 TO 44 
80 FOR Y=7 TO 16 
90 PLOT X, Y 
100 NEXT Y 
110 NEXT X 
120 REM PANTS 

130 COLOR 2 

140 FOR X=34 TO 44 

150 FOR Y=17 TO 36 

160 PLOT X, Y 
170 NEXT Y 
180 NEXT X 

190 COLOR 0 : PLOT 39,24:DRAWTO 39,36 

When you add the following section, you may press any key to 
change outfits. 



200 

201 

205 

210 

220 

230 

235 

240 

250 


REM SELECT COLORS 

PRINT "PRESS ANY KEY TO CHANGE OUTFITS!" 
OPEN #1,4,0, "K" 

T=INT( 16*RND( 1 ) ) : S=INT( 16*RND( 1 ) ) 

SE . 0 , T , S 

P= INT ( 16*RND ( 1 ) ) : SH= INT ( 16*RND ( 1 ) ) 

SE . 1 , P, SH 
GET #1 , N 
GOTO 210 
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Main ideas: Writing a song using READ. ..DATA 
Setting up titles in Graphics 2 

10 Graphics 2 makes big letters. (Refer to the Graphics 2 diagram in 
the Appendix.) 

20-30 Positions and prints the title in the middle of the screen. If you don’t 
use the #6, the title appears at the bottom in the text window! 

200 Reads the note (N) and the time (T) or number of beats to play the 
note. To find the numeric equivalents of the notes, refer to the 
Musical Notes in the Appendix. 

201 Checks for the flag data (see line 320). When it reads a “-1” as 
data, the song is over because you go to line 330. 

210 Makes the sound. 

215-216 Counts to 100 for each beat (T). To speed up the song, make the 
pause less than 100. To slow it down, make the pause longer than 
100 . 

217 Turns off the sound. This is important when you repeat identical 
notes. Without the break, the notes melt together to form one long 
sound. 

220 Goes back to line 200 to read the numbers for the next note and 
time. 

250-310 The data lines that hold the information for the song. Each line 
holds a series of numbers arranged in pairs — note, time, note, time, 
note, time, and so forth. 

320 The flag data that signals the program to end. 

For those of you who read these explanations, here’s a little treat. You can 
change the color of the letters in the word AMERICA. Simply make some 
changes in line 30. Try using lower-case letters for the word “america”; try 
pressing the JK key and using capital letters; try pressing the key and 
using lower-case letters; or try some of each for a multicolored effect. 

You can also change the background color by adding a line 15: 

15 SETC0L0R 4,10,15 

The background in T 
Graphics 2 | 

A color from 0 to 1 5 
from the Setcolor 
Chart in the Appendix 

A shade of color from 
0 to 1 5 (the lightest 
shade is 15) 
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The American Way 

School days in America all begin 
the same way. Everyone says 
the pledge to the flag. Then 
comes a patriotic song. 

Good morning, boys and girls! 


RsS& 







10 GE.2 
20 POS.6,4 

30 PRINT #6; "AMERICA" 

200 READ N, T 

201 IF N=— 1 THEN GOTO 330 
210 SOUND 0,N, 10,8 

215 FOR P=1 TO 100*T 

216 NEXT P 

217 SOUND 0,0, 0,0 
220 GOTO 200 

250 DATA 121,2,121,2,108,2,128,3,121,1,108,2 
260 DATA 96,2,96,2,91,2,96,3,108,1,121,2 
270 DATA 108,2,121,2,128,2,121,6 
320 DATA -1,-1 
330 END 


m 


Add these lines to finish the song: 

280 DATA 81,2,81,2,81,2,81,3,91,1,96,2 

290 DATA 91,2,91,2,91,2,91,3,96,1,108,2 

300 DATA 96,2,91,1,96,1,108,1,121,1,96,3,91,1,81,2 

310 DATA 72,1,91,1,96,2,108,2,121,6 
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Main ideas: Inputting variables into a text 
Using OPEN.. .GET 
Using FOR.. .NEXT to repeat an action 

In this program, TN$ stands for the teacher’s name, N$ stands for the stu- 
dent’s name, S$ stands for a school subject, RN$ stands for a relative’s name, 
A$ stands for an animal, PL$ stands for a place, and PN$ stands for the 
parent’s name. All of these are alpha variables (variables containing letters) 
and each has a string sign ($). They are called string variables. 

N stands for a number. It is a numeric variable and has no string sign ($). 

5 Dimensions the string variables (tells how many letters may be 
used for each variable). 

10 Clears the screen. 

20-81 Allows you to input the information. Notice the use of a semicolon (;). 
What happens if you leave it off? 

100 Clears the screen. 

105 Positions the first line of the letter 7 lines down. 

1 1 0-21 0 Prints the letter. Be careful about quotation marks, semicolons, and 
spaces if you want the letter to turn out right. 

By the way, did I tell you about the punishment for lying? 

250 PRINT: PRINT "PRESS H TO SEE WHAT ";N$ 

260 PRINT "HAD TO DO FOR HOMEWORK . " 

270 OPEN #1,4,0, "K" 

280 GET #1,N 

290 IF N<>72 THEN 280 

295 GR.0 

300 FOR P=1 TO 500 

310 PRINT P;" I WILL NOT TELL LIES." 

320 NEXT P 

250-260 Prints the direction, inserting the name of the student. 

270 Opens the keyboard for input. 

280 Gets the ASCII code number for the key pressed. 

290 If you press anything except the H (ASCII code 72), you go back to 
line 280. 

300-320 The sentence in line 310 is printed 500 times. See what happens if 
you leave out line 320. (You need it to make the program loop back 
to line 310.) Can you make it print 1000 times? 
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The Dog Ate It! 

Oh no! You forgot to do your homework. It’s a good thing you’re 
so clever. Here’s your homework excuse. You get an A for 
creative writing. 


5 DIM TN$ ( 20 ) , N$ ( 20 ) , RN$ ( 20 ) , A$ ( 15 ) , PL$ ( 20 ) , PN$ ( 20 ) , 
S$(20) 

10 GR.0 . * 

20 PRINT "TEACHER'S NAME"; 9 

21 INPUT TN$ C>b 

30 PRINT "YOUR -NAME"; Z- 

31 INPUT N$ ~J~Z 

35 PRINT "A SCHOOL SUBJECT"; ^ 

36 INPUT S$ 

40 PRINT "NAME OF ONE OF YOUR RELATIVES" 

41 INPUT RN$ 

50 PRINT "KIND OF ANIMAL"; 

51 INPUT A$ 

60 PRINT "A NUMBER"; 

61 INPUT N 

70 PRINT "A PLACE"; 

71 INPUT PL$ 

80 PRINT "YOUR PARENT'S NAME"; I 

81 INPUT PN$ 






100 GR.0 
105 POS .2,7 
110 PRINT "DEAR " ; TNf ; " , " 

120 PRINT " " ;N$; " DID NOT DO THE " ; S$ 

130 PRINT "HOMEWORK LAST NIGHT BECAUSE" 

140 PRINT RN$ ; " CAME TO VISIT." 

150 PRINT 

160 PRINT RN$> ; '" S ";A$;" GRABBED IT" 

170 PRINT "AND TOOK ";N;" BITES OUT OF IT.’ 
180 PRINT "THEN HE RAN AWAY WITH IT TO " 
190 PRINT PL$ 

200 PRINT " YOURS TRULY," 

210 PRINT " " ; PN$ 
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Main ideas: A simple test using READ. ..DATA 
A test of homonyms 

5 Dimensions the string variables (tells how many letters may be 
used for each variable). 

10 Clears the screen. 

20 Reads the homonym hint and the answer (from the data lines 500 
to 540). The hint goes right up to the comma and includes the 
choices in parentheses. 

21 If the word “END” is read, the program skips to line 1 00. (The word 
“END” is used as the flag data in line 900.) 

30 Prints the homonym hint. 

40 Allows you to input your guess (G$). 

50 Prints “RIGHT!” if your guess was correct. 

60 Prints a “WRONG” message and tells you the answer if your guess 
was incorrect. 

70 Prints 2 blank lines. 

80 Goes back to line 20 to read the next homonym hint and answer. 
100-120 Prints a silly message at the end of the test. 

500-540 The data lines that hold the information for the test. Remember that 
the H$ goes all the way up to the comma. The A$ comes after the 
comma. 

900 The flag data that signals the program to end (used in line 21). 

To make the game longer, add more homonyms between lines 540 and 900. 
To make the game harder, leave out the choices in the parentheses and let 
the person think of the homonym needed. 



WHICH 
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Spelling Counts! 

Today’s spelling lesson is about 
homonyms. Eye no watt a 
homonym is, dew ewe? 

5 DIM H|> ( 35 ) , A$ ( 10 ) , G$ ( 10 ) 

10 GR.0 

20 READ H$,A$ 

21 IF H$="END" THEN 100 
30 PRINT H$ 

40 INPUT G$ 

50 IF G$=A$ THEN PRINT "RIGHT!!" 

60 IF G$OA| THEN PRINT "WRONG, IT WAS " ; A$ 

70 PRINT: PRINT 
80 GOTO 20 

100 PRINT: PRINT "THIS IS THE END." 

110 PRINT "HOW DID EWE DEW?" 

120 END 

500 DATA COMES OUT AT HALLOWEEN ( WHICH/WITCH ), WITCH 

510 DATA EYES DO THIS (SEE/SEA) , SEE 

520 DATA A RABBIT (HARE/HAIR) , HARE 

530 DATA A GOOD STORY (TAIL/TALE) , TALE 

540 DATA PENCILS DO THIS (RIGHT/WRITE) .WRITE 

900 DATA END, END 



SEE 


TALE 
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Main ideas: Using RND for arithmetic tests 
Poking hearts into Graphics 2 

10 Graphics 2 screen (for large letters). 

20-30 Positions and prints the title on the screen. 

40-50 Selects 2 numbers from 0 to 10. 

60 Prints the problem in the text window. 

70 Allows you to answer. 

80 If you answered correctly, you skip to line 200. 

90 If you answered incorrectly, prints this “WRONG” message. 

100 Goes back to line 60 and prints the problem again. (You keep 
guessing till you get it right!) 

200 A remark (to save the line number for later). 

205 Prints “RIGHT!” 

250 Goes back to line 40 to make up a new problem. 

As for the jazzy addition: 

1 1 Selects red for the letters on the screen: Setcolor 0 (for the letters), 
4 (for red), 4 (for a dark shade). 

1 2 Selects pink for the background: Set color 4 (for the background), 4 
(for red), 10 (for a light shade). 

200 A remark to remind you that this section makes the hearts. 
210-240 A loop which repeats 20 times: 

220 This poke adds 32 to the ATASCII code. The space (character 32) 
becomes character 64, which is a heart! The upper-case letters 
become lower-case letters. 

225 Pauses briefly while the computer counts to 10. 

230 Pokes back the original screen with capital letters and no hearts. 

For multiplication, notice the changes in lines 60 and 80. You can print an 
“X” in the problem, but you need a star (*) to compute the answer. 

For subtraction, you change lines 60 and 80, but you also need line 55, 
which checks to make sure that the first number is larger than the second 
number. (If the first number is smaller than the second number, you will get a 
negative answer. Ex: 3-5= -2.) 

For division, you have several things to consider: 

40 To increase the difficulty, gradually increase 11 to 101, or more! 
50 Instead of numbers from 0 to 9, the + 1 gives you numbers from 1 to 
10. This is important, because division by 0 is impossible. 

55 Checks to make sure that the dividend is larger than the divisor. 

56 Checks to make sure that the answer is a whole number. Problems 
with remainders are rejected. 

60 Prints the problem. The computer uses a slash (/) for division. 

80 Checks to see if you guessed correctly. 
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We Love Math! 

Mrs. Tiddlebaum’s class loves math! 

10 GR.2 

20 POS .3,4 

30 PRINT #6; "WE LOVE MATH" 

40 X=INT(11*RND(1) ) 

50 Y=INT(11*RND(1) ) 

60 PRINT "WHAT IS ";X;"+";Y; 

70 INPUT G 

80 IF G=X+Y THEN GOTO 200 
90 PRINT "WRONG! TRY AGAIN!" 

100 GOTO 60 
200 REM 

205 PRINT "RIGHT!" 

250 GOTO 40 

See what I mean: 

11 SE.0,4,4 

12 SE.4,4,10 
200 REM HEARTS 
210 FOR H= 1 TO 20 
220 POKE 756,226 

225 FOR P=1 TO 10: NEXT P 
230 POKE 756,224 
240 NEXT H 



Try multiplication: 

60 PRINT "WHAT IS ";X;"X";Y; 
80 IF G=X*Y THEN GOTO 200 

Or subtraction: 

55 IF X<Y THEN 40 

60 PRINT "WHAT IS ";X;"-";Y; 

80 IF G=X-Y THEN GOTO 200 

Or division: 

40 X=INT(101*RND(1) ) 

50 Y= INT ( 10*RND ( 1 ) )+l 

55 IF X<Y THEN 40 

56 IF INT(X/Y)OX/Y THEN 40 
60 PRINT "WHAT IS ";X;"/";Y; 
80 IF G=X/Y THEN GOTO 200 
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Main ideas: Creating a data list 

Reading the data to print a selective list 

Entering data lines takes a long time, and it’s easy to make mistakes. Find a 
good friend, and work on this project together. You can check each other as 
you go along. Here are some tips: 

1 . Enter the data one line at a time, beginning at line 400. (The first one is 
done for you.) 

2. Count by 10s when you number the data lines (400, 410, 420, etc.). 

3. Remember to start each data line with the word DATA. 

4. Put a comma after each piece of data, but not at the end of the line. 

5. Always enter the data in the same order: state, abbreviation, capital, 
flower, bird. For example: 

400 DATA ALABAMA , AL , MONTGOMERY , CAMELLIA , YELL0WHAMMER 

6. Run the program after you enter each line to check for errors. 

When you finish, you should have a listing of all 50 states. (If you get tired, you 
can stop after 10 or 20 states are entered. Add the rest next week when your 
typing fingers recover.) Later we will change the program so it does different 
things. 

Here is an explanation of the basic program: 

5 Dimensions the string variables (tells how many letters may be 
used for each variable). 

10 Clears the screen. 

40 Reads the data in this order: ST$ (name of the state), AB$ (abbrevi- 
ation), C$ (capital), F$ (flower), B$ (bird). 

50 Checks for the flag data to end the program. 

60 Prints the name of the state. 

70 Goes back to line 40 to read more data. 

400-999 The data lines that hold the information about each state. (Follow 
the pattern in line 400.) 

1000 The flag data that signals the program to end. Line 40 is waiting to 
read 5 words, so write the word END 5 times. 

To see a little of your list at a time, press BREAK to stop the list as it scrolls up 
the screen. Then type “CONT” to see a little more. 

Save this program so you can use the data over and over again in new ways. 

If you are using a cassette recorder, follow the directions in the Appendix on 
page 54. 
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State the States 


In social studies you are studying the United States. For extra 
credit, you and your best friend have volunteered to enter this 
data into your classroom computer. Good luck! 


5 DIM ST$(20) ,AB$(2) ,C$(20) ,F$(20) ,B$(20) 

10 GR.0 

40 READ ST$,AB$,C$,F$,B$ 

50 IF ST$="END" THEN END 
60 PRINT ST$ 

70 GOTO 40 

400 DATA ALABAMA , AL , MONTGOMERY , CAMELLIA , YELLOWHAMMER 


i (You add the rest of the data here!) 


I 

1000 DATA END , END , END , END , END 



INFORMATION ABOUT THE STATES 


STATE 


CAPITAL FLOWER BIRD 


ALABAMA 

ALASKA 

ARIZONA 

ARKANSAS 

CALIFORNIA 

COLORADO 

CONNECTICUT 

DELAWARE 

FLORIDA 

GEORGIA 

HAWAII 

IDAHO 

ILLINOIS 

INDIANA 

IOWA 

K HNS MS 

KENTUCKY 

LOUISIANA 

MAINE 

MHRYLAND 

MASSACHUSB ITS 

MICHIGAN 

MiHNRSU I A 

MISSISSIPPI 

MISSOURI 

MON I ANH 

NEBRHSKA 

NEVADA 

NEW HAMPSHIRE 
NEW JERSEY 
NEW MEXICO 
NEW YORK 
NORTH CAROLINA 
NORIH DAKOTA 
OHIO 

OKLAHOMA 

OREGON 

PENNSYLVANIA 

RHODE ISLAND 

SOUTH CAROLINA 

SOUTH DAKOTA 

TENNESSEE 

TEXAS 

U I AH 

VERMON I 

VIRGINIA 

WASHINGTON 

WEST VIRGINIA 

WISCONSIN 

WYOMING 


MONTGOMERY 

JUNEAU 

PHOENIX 

LITTLE ROCK 

SACRAMENTO 

DENVER 

HARTFORD 

DOVER 

TALLAHASSEE 

ATLANTA 

HONOLULU 

BOISE 

SPRINGFIELD 

INDIANAPOLIS 

DES MOINES 

TUPEKA 

FRANKFORT 

BATON ROUGE 

AUGUS T A 

ANNAPOLIS 

BOSTON 

LANSING 

■-.I'.PAUL 

JACKSON 

JEFFERSON CITY 

HELENA 

LINCOLN 

CARSON CITY 

CONCORD 

TRENTON 

SANTA FE 

ALBANY 

RALEIGH 

BISMARCK 

COLUMBUS 

OKLAHOMA CITY 

SALEM 

HARRISBURG 

PROVIDENCE 

COLUMBIA 

PIERRE 

NASHVILLE 

AUSTIN 

SALT LAKE CITY 

MONTPELIER 

RICHMOND 

OLYMPIA 

CHARLESTON 

MADISON 

CHEYENNE 


CAMELLIA YELLOWHAMMER 

FORGET-ME-NOT GROUSE 

CACTUS BLOSSOM CACTUS WREN 

APPLE BLOSSOM MOCKINGBIRD 

POPPY QUAIL 

COLUMBINE BUNTING 

MOUNTAIN LAUREL ROBIN 

PEACH BLOSSOM BLUE HEN 

ORANGE BLOSSOM MOCKINGBIRD 

ROSE THRASHER 

HIBISCUS GOOSE 

SYR INGA BLUEBIRD 

VIOLET CARDINAL 

PEONY CARDINAL 

ROSE GOLDFINCH 

SUNFLOWER MEADOWLARK 

GOL.DENROD CARDINAL 

MAGNOLIA PELICAN 

PINE CONE CHICKADEE 

BLACKEYED SUSAN ORIOLE 

MAYFLOWER CHICKADEE 

APPLE BLOSSOM ROBIN 

LADY SLIPPER LOON 

MAGNOLIA MOCKINGBIRD 

HAWTHORN BLUEBIRD 

B I TTERROQT MEADOWLARK 

GOLDENROD MEADOWLARK 

SAGEBRUSH BLUEBIRD 

LILAC PURPLE FINCH 

VIOLET GOLDFINCH 

YUCCA ROADRUNNER 

ROSE BLUEBIRD 

DOGWOOD CARDINAL 

ROSE MEADOWLARK 

CARNATION CARDINAL 

MISTLETOE FLYCATCHER 

OREGON GRAPE MEADOWLARK 

MOUNTAIN LAUREL GROUSE 

VIOLET RED HEN 

JESSAMINE WREN 

PASQUEFLOWER PHEASANT 

IRIS MOCKINGBIRD 

BLUEBONNE T MOCK I NGB I RD 

LILY GULL 

CLOVER THRUSH 

DOGWOOD CARDINAL 

RHODODENDRON GOLDF I NCH 

RHODODENDRON CARD I NAL 

VIOLET ROBIN 

PA I NTBRUSH MEADOWLARK 
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Main ideas: Using IF.. .THEN to find information on the data list 
Using the data list to make a chart 
Using the data list to play a game 

To find information: 

Simply add an IF... THEN statement at line 60. Try the examples, and make up 
some of your own. 

To make a chart: 

20 Prints the headings. 

30 Underlines the headings. 

60 Tells the computer what to print. 

To play a game: 

6 Allows 20 letters for your answer. 

60-62 Prints a question for you to answer. 

63 Prints “RIGHT!” if your answer was correct. 

64 Prints a “WRONG” message if your answer was incorrect. 

To score the game: 

50 Prints the score at the end of the game. Since there are 50 states 
and you get 2 points for each correct answer, your maximum score 
is 100. 

63 Keeps track of the number correct. 


14 


Trivia Expert 

Let the computer turn you into a trivia expert. Who else could 
possibly know the state bird of Wyoming? Now that you put in 
all that data, let the computer help you. 

To find information: 

60 IF ST$= "WYOMING" THEN PRINT B$ 

60 IF ST$= "CONNECTICUT" THEN PRINT C$ 

60 IF AB$="CT" THEN PRINT C$ 

60 IF AB$="AL" THEN PRINT B$ 

60 IF B$= "ROBIN" THEN PRINT ST$ 

60 IF F$> = "ROSE" THEN PRINT ST$ 

To make a chart: 

20 PRINT "STATE", "CAPITAL" 

30 PRINT " 

60 PRINT ST$,C$ 

20 PRINT "STATE", "FLOWER" 

30 PRINT " " 

60 PRINT ST$,F$ 

20 PRINT "STATE", "BIRD" 

30 PRINT " "," " 

60 PRINT ABf , B$ 

To play a game: 

6 DIM A$(20) 

60 PRINT "THE STATE IS " ; ST$ 

61 PRINT "WHAT IS THE ABBREVIATION? 1 '; 

62 INPUT A$ 

63 IF A$=AB$ THEN PRINT "RIGHT!" 

64 IF A$OAB$ THEN PRINT "WRONG, IT WAS " ; AB$ 

To score the game: 

50 IF ST$ = "END" THEN PRINT "YOUR SCORE IS ";C*2:END 
63 IF A$=AB$ THEN PRINT "RIGHT !": C=C+1 
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Main ideas: A contest or race decided at random 
String variables and numeric variables 


Remember that A$, B$, and C$ are words (the lunches) and that A, B, and C 
are numbers (the positions of the lunches on the screen). 


5 A$, B$, and C$ may have up to 15 letters each. 

10 Clears the screen. 

20-50 Allows you to input your choices for the 3 worst lunches. 

110 Clears the screen. 

115 Gets rid of the cursor. 

120-130 Positions and prints the name of the race. 

140-160 Prints the 3 worst lunches. 

170 At the beginning of the race, all 3 lunches start at position 1. Did 
you notice that the lunches are string variables (A$, B$, C$), but 
that their positions are numeric variables (A, B, C)? For example, A 
is the number of the box where A$ is located. 

180 Picks a number from 1 to 3 as the vote for the worst lunch. 

190 If it picked a 1, A$ gets the vote, and a star is printed at location 
(A, 6) right below the A$ label. A goes up 1, so that next time the 
second box will be filled in, then the third box, and so forth. 

200 This is what happens if the computer picked a 2 in line 180. 

210 This is what happens if the computer picked a 3 in line 180. 

220 If any of the “competing” lunches gets to box 40 (off the screen), 
then the race is over, and the program goes to line 250. 

230 Goes back to line 180 to see which lunch gets the next vote. 

250 Prints this message at the bottom of the screen when there is a 
winner — or should I say “loser”? 

260 Freezes the screen so there is no READY signal. 
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Gag Me with a Spoon 

It’s lunch time at last, but — oh no! 
It’s the tuna salad boat again! 
What do you think is the 
worst school lunch? 



5 DIM A$ ( 15 ) , B$ ( 15 ) , C$ ( 15 ) 

10 GR.0 

20 PRINT "WHAT ARE THE 3 WORST SCHOOL LUNCHES?" 

30 INPUT A$ 

40 INPUT B% 

50 INPUT C$ 

110 GR.0 
115 POKE 752,1 
120 POS .12,2 

130 PRINT "THE WORST LUNCH" 

140 POS. 1,5: PRINT A$ 

150 POS. 1,10: PRINT B$ 

160 POS. 1,15: PRINT C$ 

170 A=1 : B=1 : C=1 
180 V = INT(3*RND( 1 ) )+l 

190 IF V=1 THEN POS . A, 6 : PRINT "*":A=A+1 
200 IF V=2 THEN POS . B , 11 : PRINT "#":B=B+1 
210 IF V=3 THEN POS . C , 16 : PRINT "%":C=C+1 
220 IF A=40 OR B=40 OR C=40 THEN 250 
230 GOTO 180 

250 POS. 2, 21: PRINT "LET'S DROP IT FROM THE SCHOOL 
MENU ! " 

260 GOTO 260 
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Main ideas: Dimensioning string variables 
Inserting variables into a text 
Pressing any key to continue 

In this program, the following variables are used: 

L$ = Letter of the alphabet 
G$ = Girl’s name 
B$ = Boy’s name 
PL$ = Place 
TH$ = Thing 

5 Allows a certain number of letters for each string variable used in 
the program. For example, L$ may have only 1 letter, B$ may have 
up to 1 5 letters, and so forth. 

6 Clears the screen. 

10—100 Allows you to input your ideas. 

110 Clears the screen. 

120-150 Prints the poem. Notice the semicolons. They make the computer 
print the next word right next to the last word (or space) printed. 

155-160 Positions and prints the message. 

1 70 Opens the keyboard for input. 

180 Gets the code number of any key you press. (The number doesn’t 
really matter because the program automatically continues to line 
1 90 as soon as you press a key, whatever it is.) 

190 Sends you back to the beginning of the program at line 6. Notice 
that the program does not go back to line 5. Doing so would pro- 
duce an error because the string variables can be dimensioned 
only once during the run of a program. 
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Jump Rope 

After lunch the girls like to jump rope. (I guess the boys don’t 
know how!) This is one of their favorite poems. Why not make 
up some verses of your own? 

5 DIM L$ ( 1 ) , G$ ( 15 ) , B$ ( 15 ) , PL$ ( 20 ) , TH$ ( 20 ) 

6 GR.0 

10 PRINT "LETTER OF ALPHABET"; 

20 INPUT L$ 

30 PRINT "GIRL’S NAME THAT BEGINS WITH " ; L$ 

40 INPUT G$ 

50 PRINT "BOY'S NAME THAT BEGINS WITH ";L$ 

60 INPUT B$ 

70 PRINT "NAME OF PLACE BEGINNING WITH " ; L$ 

80 INPUT PL$ 

90 PRINT "SOMETHING THAT BEGINS WITH ";L$;" (PLURAL)" 

100 INPUT TH$ 

110 GR.0 

120 PRINT L$ ; " MY NAME IS " ; G$ 

130 PRINT "AND MY HUSBAND'S NA^E IS ";B$ 

140 PRINT "WE COME FROM " ; PL$ 

150 PRINT "AND WE BRING BACK " ; TH$ 

155 POS .2,20 

160 PRINT "PRESS ANY KEY TO CONTINUE" 

170 OPEN #1 ,4,0, "K" 

180 GET #1 , N 
190 GOTO 6 
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Main ideas: Using OPEN. ..GET for instant input 
Drawing without joysticks 

10 Graphics 3 screen. 

15 Prints this message in the text window. 

20 Makes the background green. 

30 The drawing will be in gold (color 1 ). To change this color, you may 
use: 

SETC0L0R 0, , 

A number from 0 to 15^ A number from 0 to 15 
for the setcolor for the shade 

40 Opens the keyboard for instant input. 

50 Your starting position on the screen. 

55-56 Picks the location (H, V) where Joe’s keys are hiding. 

60 Plots your current location. 

70 Checks to see if you have pressed a key. If so, the computer gets 
the ASCII code number of the key. 

80 If you pressed f on the - key (code 45), the computer subtracts 1 
from Y and moves you up the screen. 

90 If you pressed | on the = key (code 61), the computer adds 1 to Y 
and moves you down the screen. 

100 If you pressed -» on the * key (code 42), the computer adds 1 to X 
and moves you to the right. 

110 If you pressed <— on the + key (code 43), the computer subtracts 1 
from X and moves you to the left. 

120-150 These lines keep you on the screen. 

155 Checks to see if you’re close enough to find Joe’s keys. To make 
the game harder, make the number less than 3. To make it easier, 
give yourself a bigger radius, and make the number more than 3. 

160 Goes back to line 60 to plot your current location. 
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Joe’s Keys 

Joe, the custodian, is crawling 
around on his hands and knees. 

He has lost his keys. 

Poor Joe needs 
all the help he can get. 

Why don’t you help 
Joe find his keys? 

10 GR.3 

15 PRINT "HELP JOE FIND HIS KEYS!" 

20 SE.4,12,2 
30 C.l 

40 OPEN #1,4,0, "K" 

50 X=20 : Y=19 

55 H=INT(40*RND( 1 ) ) 

56 V=INT(20*RND(1) ) 

60 PL . X, Y 
70 GET #1 , N 
80 IF N=45 THEN Y=Y-1 
90 IF N=61 THEN Y=Y + 1 
100 IF N=42 THEN X=X+1 
110 IF N=43 THEN X=X-1 
120 IF X<0 THEN X=0 
130 IF X>39 THEN X=39 
140 IF Y<0 THEN Y=0 
150 IF Y>19 THEN Y=19 
155 IF X<H+3 AND X>H-3 AND Y<V+3 AND Y>V-3 THEN 

PRINT "YOU FOUND THEM!!":G0T0 155 
160 GOTO 60 
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Main ideas: A multiple-choice test 
Scoring the test 


5 

10 

19-80 

100 

120 

121 

130-140 

150 

160 

170 

175-180 

190 

300-310 

400 


Dimensions the string variables (the animal names). They may 
have up to 15 letters. 

Graphics 2 screen. 

Prints the answer choices on the screen. 

A remark. 

Reads the name of an animal (AN$) and its classification number 
(CL). 

Checks for the word END, which is the signal to end the program. 
Prints the question. 

Allows you to input your guess (G). 

Prints “RIGHT!” if your guess was correct. 

Prints a “WRONG” message and tells you the right answer if your 
guess was incorrect. 

Pauses and skips a line. 

Goes back to line 120 to read the next animal. 

Data lines. 

Flag data. 


To score the game: 


110 

121 

155 

160 

200-220 

210 

215 

220 

230 


At the start of the game, both the total number of questions (T) and 
the number of correct responses (C) equal 0. 

Sends you to line 200 for the score. 

Adds 1 to the total (T) each time you input a guess. 

Adds 1 to the number correct (C) each time you give a right answer. 
Computes and prints the score: 

The formula to compute your score. 

Prints the number of questions you answered correctly. 

Prints the percentage you got right. 

Keeps the scoring information in the text window. 


The data lines 300 and 310 hold the information for the test. You may use 
lines between 310 and 400 to add more data if you want to make the test 
longer. If you choose to add more data, be sure to follow the data pattern. You 
must type the animal, the number, the animal, the number, etc. 

Line 400 is the flag data that signals the program to end (see line 121). Be 
sure to include the flag data at the end of your data list. Since line 1 20 has the 
computer read a word and a number, the flag data must contain a word and a 
number. 
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Science 

Lunch time is over. The bell 
rings, and it’s back to class you go. 
It’s time for science. Did you know 
that all animals belong to one 
of these six groups? 


5 DIM ANf ( 15 ) 

10 GR . 2 

19 POS.1,1 

20 PRINT #6; "CLASSES OF ANIMALS" 

30 PRINT #6;" 1 . INVERTEBRATES" 

40 PRINT #6;" 2. FISH" 

50 PRINT #6;" 3 . AMPHIBIANS" 

60 PRINT #6;" 4. REPTILES" 

70 PRINT #6;" 5. BIRDS" A 

80 PRINT #6;" 6. MAMMALS" 

100 REM GAME I 

120 READ ANf, CL V &* 0 

121 IF ANf = " END" THEN END ^ 

130 PRINT "PICK A NUMBER" \ > 

140 PRINT "WHAT IS A " ; ANf \ ^ ^ / 

150 INPUT G \. 

160 IF G=CL THEN PRINT "RIGHT!" 

170 IF GOCL THEN PRINT "WRONG, IT BELONGS TO GROUP " ; CL 
175 FOR P=1 TO 500: NEXT P 
180 PRINT 
190 GOTO 120 

300 DATA DOG, 6, TURTLE, 4, STARFISH, 1, WHALE, 6, TURKEY, 5, 

FROG, 3, SALMON, 2 

310 DATA SALAMANDER, 3, LIZARD, 4, PEACOCK, 5, BAT, 6, PERSON, 

6, SPIDER, 1 
400 DATA END , 0 




110 T=0 : C=0 

121 IF ANf = "END" THEN 200 
155 T=T+1 

160 IF G=CL THEN PRINT "RIGHT! C = C + 1 
200 REM SCORE 
210 SC=INT(C/T*100+ .5) 

215 PRINT "YOU GOT ";C;" CORRECT OUT OF ";T 
220 PRINT "YOUR SCORE IS ";SC;"%" 

230 GOTO 230 


23 




Main ideas: Using the joystick to draw on the screen 
Selecting colors from the Setcolor Chart 

For understanding best how this program works, enter it in sections. Before 
you start, try this short program, and see if you can find all the numbers on the 
diagram: 

1 PRINT STICK ( 0 ) 

2 GOTO 1 


Now type “NEW” and start the program. 

10 Graphics 7 is 160 x 96 boxes. The +16 removes the text window. 
20-21 Picks the starting point. 

25 Color 1 is gold. 

30 Plots the starting point. 

40-70 Checks the position of the joystick, and changes X and Y 
accordingly. 

170 Goes back to line 30 to plot the next point. 

80-110 Allows you to draw on the diagonal. 

1 20-1 50 Keeps you from going off the screen. (If you do not add these lines, 
you will get an error message if you try to go off the screen!) 

Selecting your own colors will make the drawing even better. To choose your 
colors, refer to the Setcolor Chart in the Appendix. 

1-9 Allows you to input a color and a shade for the background, and a 
color and a shade for the drawing. 

26 Sets the color of the background. 

27 Sets the color of the drawing. 
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Modern Art 

The art teacher is absent, 
and the sub lets you draw 
whatever you like. Maybe 
you can exhibit your work 
at the Modern Art Museum! 

10 GR.7+16 

20 X=INT( 160*RND( 1 ) ) 

21 Y=INT( 96*RND( 1 ) ) 

25 COLOR 1 
30 PL . X , Y 

40 IF STICK( 0 ) =7 THEN X=X+1 
50 IF STICK( 0) =11 THEN X=X-1 
60 IF STICK( 0) =13 THEN Y=Y+1 
70 IF STICK! 0) =14 THEN Y=Y-1 
170 GOTO 30 

Draw on the diagonal, too! 

80 IF STICK(0) =6 THEN X=X+1:Y=Y-1 
90 IF STICK! 0) =5 THEN X=X+1:Y=Y+1 
100 IF STICK! 0) =10 THEN X=X-1:Y=Y-1 
110 IF STICK ( 0 ) =9 THEN X = X-1:Y = Y + 1 



Keep the drawing on the paper! 

120 IF X>159 THEN X=159 
130 IF X<0 THEN X=0 
140 IF Y>95 THEN Y=95 
150 IF Y<0 THEN Y=0 


Choose your own colors! 

1 GR.0 

2 PRINT "BACKGROUND COLOR (0-15)"; 

3 INPUT B 

4 PRINT "SHADE OF BACKGROUND (0-15)"; 

5 INPUT SB 

6 PRINT "COLOR OF DRAWING (0-15)"; 

7 INPUT D 

8 PRINT "SHADE OF DRAWING (0-15)"; 

9 INPUT SD 

26 SE . 4 , B , SB 

27 SE . 0 , D , SD 
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Main ideas: Using SOUND with one or two “voices” 

Using OPEN. ..GET for immediate input 
Using colons to combine statements 

10 Clears the screen. 

20-35 Positions and prints the directions. 

40 Opens the keyboard for input. 

50 Gets the ASCII code number of the key you press. 

51 Add this line just in case you press a wrong key. It sends you back 
to line 50 and waits for you to press a key from 0 to 8. 

55 If you press 0, the note becomes 0 (no sound). 

60-1 30 If you press 1 , the note becomes 1 21 (middle C). If you press 2, the 
note becomes 108 (D), and so forth. (Refer to the Musical Notes in 
the Appendix to see the numbers for the whole keyboard!) 

140 Plays the sound. 

150 Goes back to line 50 to get the number for the next note. 

Additions to lines 55 to 130 can be made easily by pressing CTRL and the 
arrow keys ( f — ») to get to the end of each line. Then make the addition and 
press RETURN. Don’t forget the colon (:), which is used to combine state- 
ments. 

The additions are for a second “voice.” When you play a song, you will now 
hear two notes (or voices). Line 140 plays the first voice (SOUND 0). Line 145 
plays the second voice (SOUND 1 ). If you pressed 0, both voices play note 0, 
which means that the sound is turned off. 

What do the numbers in a sound statement stand for? 

145 SOUND 1 , N1 , 10 , 14 

^ /A /V 

voice 
(0 to 3) 

note 
(0 to 255) 

tone 
(10 is clear) 

loudness 
(0 to 15) 

(15 is loudest) 
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Music 



The music teacher has asked everyone to compose a tune. It’s 
time to play your song. Do a good job! 

10 GR.0 
20 POS .5,10 

30 PRINT "TO MAKE MUSIC, PRESS KEYS 1-8" 

33 POS. 5, 11 

35 PRINT " PRESS 0 TO STOP NOTE" 

40 OPEN #1,4,0, "K" 

50 GET #1 , K 

51 IF K<48 OR K>56 THEN 50 

55 IF K=48 THEN N=0 

60 IF K=49 THEN N=121 

70 IF K=50 THEN N=108 

80 IF K=51 THEN N=96 

90 IF K=52 THEN N=91 

100 IF K=53 THEN N=81 

110 IF K=54 THEN N=72 

120 IF K=55 THEN N=64 

130 IF K=56 THEN N=60 

140 SOUND 0 , N, 10, 8 
150 GOTO 50 


You’ll get extra credit if you 
can play in octaves. To do 
this, make these additions 
to the lines above: 

55 : N1=0 
60 : Nl=60 
70 : Nl=53 
80 : Nl=47 
90 :N1=45 
100 : Nl=40 
110 : Nl=35 
120 : Nl=31 
130 : Nl=29 



Then add this new line: 

145 SOUND 1,N1, 10, 14 
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Main ideas: Using INPUT to introduce flag data 
Averaging a list of numbers 


2 

3 

5 

10-20 

25 

30-40 

50 


60 

61 


70 

80 


90 

100-150 

105 


110 

120-150 


200-210 

220 


Dimensions the student’s name to 30 letters. 

Opens the keyboard for input with the word “GET” (line 210). 
Clears the screen. 

Allows you to input the student’s name. 

Skips a line. 

Prints the directions. 

At the beginning of this exercise, both the number of tests (T) and 
the total points scored (TOT) equal 0. 

Allows you to input a test score (SC). 

Checks for the flag data. If you type “-1”, this is a signal to the 
computer and you are sent to line 100. 

The total number of tests (T) goes up 1 . 

The test score (SC) is added to the total points scored (TOT). For 
example, if the total points is 0 and you score 90 on the first test, the 
new sum is 90. If you score 90 on the second test, the sum be- 
comes 180, and so forth. 

Goes back to line 60 for the next test score. 

Finds and evaluates your average: 

The average (AV) is the total points scored (TOT), divided by the 
number of tests (T). For example, if the sum of all the test scores is 
450 and you took 5 tests, your average is 450 h- 5, or 90. 

Prints the average. 

Gives you a grade. You get an A if you scored 90 or more, a B if you 
scored between 80 and 90, a C if you scored between 70 and 80, 
and a U if you scored less than 70. U is unsatisfactory! 

Waits for you to press a key before starting over. 

Goes back to line 5 to clear the screen and start a new average. 
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Report Card 

Today is report card day. 

Average your test grades, and 
find out what you got on your 
report card. You can figure out 
your friends’ grades, too! 

2 DIM N$(30) 

3 OPEN #1,4,0, "K" 

5 GR, 0 

10 PRINT "NAME OF STUDENT"; 

20 INPUT N$ 

25 PRINT 

30 PRINT "SCORES ON TESTS:" 

40 PRINT "(TYPE -1 WHEN FINISHED)" 

50 T=0 : TOT=0 

60 INPUT SC 

61 IF SC=-1 THEN 100 / -A 

70 t=T+1 f 

80 T0T=T0T+SC ^XV\^Ax:Y)J 

90 GOTO 60 

100 REM FIND AVERAGE ^ ^ 

105 AV=T0T/T 

110 PRINT "THE AVERAGE IS " ; AV 

120 IF AV>=90 THEN PRINT N$;" GETS AN A!":Gi 

130 IF AV> = 80 THEN PRINT N$;" GETS A B ! " : GO' 

140 IF AV>=70 THEN PRINT N$;" GETS A C ! " : GO 1 

150 PRINT N$ ; " GETS A U!" 

200 PRINT: PRINT "PRESS ANY KEY TO CONTINUE." 
210 GET- #1 , N 
220 GOTO 5 



i 


GETS AN A!": GOTO 200 
GETS A B ! " : GOTO 200 
GETS A C ! " : GOTO 200 
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Main ideas: Using the joystick to move through “traffic’ 

Locating a position and using its contents 
Using a flash of color as a GOSUB 

10 Clears the screen. 

20 At the beginning of the game, the number 
of times through the loop (T) is 0. Your 
position (P) is 20 (halfway across the 
screen). The number of collisions (C) is 0. 

30 Gets rid of the cursor. (Leave this line out, and see the difference!) 

40 STICK(O) is the first joystick (insert it in Port 1). At rest, STICK(O) 
equals 15. When you push up, STICK(O) equals 14; when you push 
down, STICK(O) equals 13; etc. 

50 If you push the joystick towards the right, the computer adds 1 to 
your position. 

60 If you push the joystick towards the left, it subtracts 1 from your 
position. 

70-80 Keeps you on the screen. 

90 Locates the position you are about to occupy on the screen, and 
finds the ASCII code number (N) of what is there. 

100 The ASCII code for a space is 32, so if anything other than 32 is 
there, you are sent to line 200 to have a collision! 

1 1 0 The background color becomes black (color 0, shade 0). Setcolor 2 
sets the background color in Graphics 0. See the Setcolor Chart in 
the Appendix to select a different color. 

120 Finds your position on the screen, and prints a design. (I pressed 
the key and the space bar to get a reversed space.) 

130 Selects a random number from 0 to 38 for the box in which the car 
will be printed. 

140 Prints a car (to make the car, I pressed the CTRL key and the 
semicolon simultaneously) on the bottom line of the screen. Be- 
cause it’s the bottom line, the screen scrolls upwards, giving the 
illusion of movement. 

1 50 Adds 1 to the number of times through the loop. 

160 When you’ve gone through the loop 300 times, the game is over. 
(To make the game longer, use a number larger than 300.) 

170 Goes back to line 40 to check if you’ve moved the joystick. 

180—190 Prints the score and ends the program. 

200-270 Every time the computer locates something at your position be- 
sides a space, you have a collision: 

205-21 0 Adds 1 to the number of collisions and beeps. 

220-250 Makes 1 0 flashes of color. 

260 Turns off the beep. 

270 Returns to the program. 
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The Ride Home 

Your Mom is really going to like your report card. She’ll probably 
make your favorite after-school treat. You decide to race home 
on your bicycle. Sometimes you even race against traffic. 
Watch out! 


10 GR.0 

20 T=0 : P=20 : C=0 
30 POKE 752,1 
40 ST=STICK(0) 

50 IF ST=5 OR ST=6 OR ST=7 THEN P=P+1 
60 IF ST=9 OR ST=10 OR ST=11 THEN P=P-1 
70 IF P>38 THEN P=38 


80 IF P<0 THEN P = 0 
90 LOCATE P, 12 , N 

100 IF N<>32 THEN GOSUB 200 B 
110 SE.2,0,0 

120 POS.P, 12: PRINT VK-space" «H| 

130 X=INT(39*RND( 1 ) ) 

140 POS.X, 23: PRINT "CTRL-;" 

150 T=T+1 A 

160 IF T=300 THEN 180 I 

170 GOTO 40 " 

180 PRINT "THAT WAS ";C;" COLLISIONS!" 
190 END 

200 REM COLLISION 
205 C=C+1 

210 SOUND 0,100,10,10 
220 FOR F=1 TO 10 
230 HUE=INT( 16*RND( 1 ) ) 

240 SE . 2 , HUE, 6 

250 NEXT F 

260 SOUND 0,0, 0,0 

270 RETURN CgO^T/K//, 
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Main ideas: Counting backwards 

Playing a song using READ.. .DATA 

10 Begins a FOR. ..NEXT loop that will count backwards from 99 to 1 . 
(The end of the loop is at line 60.) 

20 Clears the screen. 

21 Stops the cursor. 

22 Picks a number from 0 to 15 for the color. (Refer to the Setcolor 
Chart in the Appendix on page 55.) 

23 Picks a number from 0 to 15 for the shade of the color. (Since the 
letters are invisible if the shade is 1 0 or 1 1 , the program will choose 
again if it picks either of those numbers.) 

24 Changes the color of the text window. (In Graphics 0, the text 
window is the whole screen.) 

25 Inserts the number for B, and positions and prints the first line of the 
song. 

30 Reads the note (N) and the time (T) that the note gets. The time is 
given in number of beats. 

31 -34 Checks for flag data. Look at lines 500 to 530, noticing the data at 
the end of each line. Each number signals the computer to go to a 
certain line of the program, which directs it to print the next line of 
the song on the screen. 

40 Plays the note read if it’s not time to print a new line. 

50 Holds the note while counting to 50 for each beat. To speed up the 
song, make the number less than 50. To slow up the song, make 
the number more than 50. 

51 Cuts off the sound. 

55 Goes to line 30 to read the numbers for the next note and the 
number of beats it gets. 

60 When a verse is complete, you go back to the beginning of the loop 
for the next number of bottles. 

100-410 The lines that relate to the flag data (see lines 31 to 34): 

400 After a whole verse is played, the data for the notes is restored so it 
can be read again for the next verse. 

410 Keeps going back for more as long as there are enough bottles. 

415 Skips 2 lines. 

420 Prints the question. 

430 Ends the program. 
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Field Trip 

Today’s the day of the big game. Your school is playing an arch 
rival. The school has provided busses to get to the game. On 
the bus, the kids sing this old classic. 

10 FOR B=99 TO 1 STEP-1 

20 GR.0 

21 POKE 752,1 

22 C=INT( 16*RND( 1 ) ) 

23 SH=INT ( 16*RND ( 1 ) ) : IF SH=10 OR SH=11 THEN 23 

24 SE . 2 , C , SH 

25 POS .3,6: PRINT B;" BOTTLES OF MILK ON THE WALL" 

30 READ N, T 

31 IF N=— 1 THEN 100 

32 IF N=-2 THEN 200 

33 IF N=— 3 THEN 300 

34 IF N=— 4 THEN 400 
40 SOUND 0,N, 10,8 

50 FOR P=1 TO 50*T : NEXT P 

51 SO. 0,0, 0,0 
55 GOTO 30 
60 NEXT B 

100 POS. 8, 8: PRINT B;" BOTTLES OF MILK 
110 GOTO 30 

200 POS. 9, 10: PRINT "TAKE ONE DOWN AND" 

210 POS. 10, 12: PRINT "PASS IT AROUND" 

220 GOTO 30 

300 POS. 2, 14: PRINT B-l ; " BOTTLES OF MILK ON THE WALL!!" 
310 GOTO 30 
400 RESTORE 

410 IF B>1 THEN GOTO 60 
415 PRINT: PRINT 

420 PRINT "HOW CAN THE BUSDRIVER DRIVE WITH 
HIS FINGERS IN HIS EARS?" 

430 END 

500 DATA 91,1,91,1,91,1,91,1,91,1,91,1,91,1,91,1,91, 

1.91. 3, -1,-1 

510 DATA 81,1,81,1,81,1,108,1,108,1,108,1,81,6,-2,-2 
520 DATA 96,2,96,1,96,2,96,1,96,1,96,1,96,1,96,3,-3,-3 
530 DATA 121,1,121,1,121,1,108,1,108,1,96,1,91,1,91,1, 

91. 1.91. 3, -4, -4 
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Main ideas: Random outcome of a game 

Initializing a variable and incrementing by twos 


10 Dimensions the string variables (allows 20 letters for each team 
name). 

20 Clears the screen. 

30-60 Allows you to input the names of the teams. 

70 Clears the screen. 

80 Stops the cursor. 

90-120 Positions and prints the title. 

130 Initializes the scores. At the beginning of the game, your team (Y) 
and their team (TH) have no points. 

140-200 Since there’s a basket a minute during the game, this loop repeats 
60 times: 

150 Picks a 0 or a 1. 

160 If a 0 was picked, you get 2 points. 

170 If a 1 was picked, they get 2 points. 

180-190 Prints the score (note the use of the semicolon and the comma). 

200 Completes the loop, and goes back for another loop (line 140). 
210-240 Prints a final message: 

220 Prints this message if the score is tied. 

230 Prints this message if the score is not tied. 

240 A dummy line which keeps going to itself. This prevents a READY 
signal (because the program never ends). 
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the game turned out: 

10 DIM Y$( 20 ) , TH$( 20 ) 

20 GR.0 

30 PRINT- "THE NAME OF YOUR TEAM"; 
40 INPUT Y$ 

50 PRINT "THE NAME OF THEIR TEAM"; 
60 INPUT TH$ 

70 GR.0 
80 POKE 752,1 
90 POS .14,10 

100 PRINT "THE BIG GAME" 

110 POS. 10, 11 

120 PRINT "********************" 

130 Y=0 : TH=0 

140 FOR M= 1 TO 60 

150 B=INT( 2*RND( 1 ) ) 

160 IF B=0 THEN Y=Y+2 
170 IF B = 1 THEN TH=TH+2 
180 POS. 10, 12 

190 PRINT Y$ ; " ";Y,TH$;" " ; TH 
200 NEXT M 
210 POS. 15,20 

220 IF Y=TH THEN PRINT "REMATCH!" 
230 IF YOTH THEN PRINT "FINAL!!" 
240 GOTO 240 



Main ideas: Setting up a chart 
Rounding off figures 


5 

10 

20-50 

100 

110-120 

121 

122 

123 

124 

125 

126 
130-150 
160-180 

160 

165 

166 

170 

180 


Dimensions the kind of pizza (K$) to 15 letters. 

Clears the screen. 

Allows you to input the kind of pizza and the price. 

Clears the screen. 

Positions and prints the kind of pizza and the price. 

Figures the tip (TP) as 15% of the price. 

Rounds the tip to the nearest 100th (as in dollars and cents). 
Positions and prints the tip. 

The total price equals the price of the pizza plus the tip. 

Positions and prints the total price. 

Skips a line. 

Prints and underlines the column headings for the chart. 

Figures the cost per person and the number of slices per person if 
there are between 1 and 8 persons sharing the pizza. 

Starts the loop. 

Figures the cost to the nearest 100th. 

Figures the number of slices to the nearest 1 0th (all the pizzas have 
8 slices). 

Prints the number of persons, the cost per person (in dollars and 
cents), and the number of slices per person (in lOths). 

Completes the loop. 


Notice the use of commas in setting up the chart. A comma sends the print 
action to the next print zone. 
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Pizza 

After the game, you and some friends 
go out for pizza. It’s hard to decide 
what to get. How much will it cost? 

How much is the tip? How much 
should each person chip in? 

How much may each person eat? 

Let the computer do your arithmetic. 

5 DIM K$(15) 

20 GR.0 

20 PRINT "WHAT KIND OF PIZZA DO YOU 
30 INPUT Kf 

40 PRINT "HOW MUCH DOES IT COST?" 

50 INPUT P 
100 GR.0 

110 POS .8,1: PRINT K$;" PIZZA" 

115 PRINT " 

120 POS. 10, 3: PRINT "COST IS $";P 

121 TP= . 15*P 

122 TP=INT ( 100*TP+ . 5 ) /100 

123 POS. 10, 4: PRINT "TIP IS $";TP 

124 P=P+TP 

125 POS. 10, 5: PRINT "TOTAL COST IS $" ; P 

126 PRINT 

130 PRINT "NO. OF", "COST/", "SLICES/" 



WANT?" 


140 PRINT "PERSONS", "PERSON", "PERSON 

150 PRINT " "," 

160 FOR N=1 TO 8 

165 C = INT(100*P/N+.5)/100 

166 SL=INT(10*8/N+.5)/10 
170 PRINT N , C , SL 

180 NEXT N 
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Main ideas: Using READ.. .DATA to draw boxes 
Using RND to make a game 

5 A remark. 

13 Graphics 3 screen. (Refer to that diagram on page 50.) 

14 Color 1 is gold. 

15 Reads 15 X positions. (A vertical line will be drawn at each X 
position.) 

20 Reads the first number for X. 

30-50 Sets all the X points from Y=6 to Y=10. 

60 Goes back to read the next X number and set the next column of 
points. 

70 Restores the data so it can be used again. 

80 The data that holds the information for the X coordinates. 

100 A remark that this is the game section. 

110 Picks the box for the money (box 1 , 2, or 3). 

120-130 Allows you to guess where the computer put the money. 

140 If you guessed correctly, you skip to line 200. 

150 Goes back to line 110 to hide the money again. 

200 A remark that this is the flashing section. 

210-250 If you find the money, 20 flashes are repeated: 

220 Picks a setcolor from 0 to 15. 

230 Colors the boxes in the setcolor chosen. 

240 Colors the background in a different color (5 colors away). 

250 Completes the loop and goes back to line 210 to flash again. 

260 After the flashing, goes back to line 13 so you can play again. 

If you want to bet on the game, make the suggested additions. 

10 Clears the screen. 

12 Allows you to input the amount of money you are starting out with. 
115 Prints your current total. 

145 Subtracts 250 when you lose. 

146 Lets you know when you run out of money. 

205 Adds 500 to your total when you win. 
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Double or Nothing 

Tomorrow is the school fair. “Double or Nothing” is your favorite 
game. Here’s how it goes: The person at the booth has three 
little boxes. A half dollar is hiding in one of them. Guess which 
one! 

5 REM DRAW BOXES 

13 GR.3 

14 C.l 

15 FOR P=1 TO 15 
20 READ X 
30 FOR Y=6 TO 10 
40 PLOT X, Y 
50 NEXT Y 
60 NEXT P 
70 RESTORE 

80 DATA 10,11,12,13,14,17,18,19,20,21,24,25,26,27,28 
100 REM GAME 
110 M=INT(3*RND( 1 ) )+l 
120 PRINT "WHICH DO YOU CHOOSE?"; 

130 INPUT G 
140 IF G=M THEN 200 
150 GOTO 110 
200 REM FLASH 
210 FOR F=1 TO 20 
220 C = INT( 16*RND( 1 ) ) 

230 SE . 0 , C, 6 
240 SE . 4, C+5 , 12 
250 NEXT F 
260 GOTO 13 

Winning money makes the game a lot more interesting. You 
pay 250 to play. If you guess the right box, you keep the half 
dollar. Good luck! Let’s keep track of your winnings: 

10 GR.0 

11 PRINT "HOW MUCH MONEY DO YOU HAVE?"; 

12 INPUT T 

115 PRINT "YOU NOW HAVE $";T 

145 T=T- . 25 

146 IF T<=0 THEN PRINT "SORRY YOU ARE BROKE !": END 
205 T=T+ . 50 
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Main ideas: Using READ, DATA, and RESTORE 
Incrementing a total 

This program finds the number of days between any two dates that you select. 
It does so by converting each date to its numerical position in the year. For 
example, January 1 is day 1 in the year, January 31 is day 31 , February 1 is 
day 32, and December 31 is day 365. The program converts each date by 
adding up the number of days in each month preceding a given date and then 
adding on the number of days in the given month. To find out what day April 
10th is, we reason like this: 

April 10 or 4/10 = ,31 + 28 + 31, + 10 = 100 

days in the 3 months f t_days in April 

preceding April 

If the month is January (which is the first month), you don’t have to add up any 
months. Just use the number of the day: January 5 is day 5, and January 20 is 
day 20. Now let’s look at the program lines individually: 

10 Clears the screen. 

20-30 At the beginning of the program, day 1 (D1 ) and day 2 (D2) are set 
to 0. 

40-70 Allows you to input the beginning date— month and day. (Enter 
numbers for the months— 1 for January, 2 for February, 3 for 
March, etc.). 

90 If the month is January, you skip to line 150. 

100 Counts to the number just before the given month. (If the month is 
5, for example, it counts to 4; that is, if the month is May, it will add 
up the number of days in the first 4 months.) 

110 Reads the number of days in each month (data line 500). 

120 Adds the number of days to day 1 . 

1 30 Finishes the loop begun in line 1 00. 

140 Restores the data, which will be read again to figure day 2. 

150 Adds the number of the day to the total days in the previous 
months. 

160 Prints the number of day 1. 

165 Skips a line. 

170-290 Figures the number of day 2. 

295 Prints a blank line. 

300 Subtracts to find the number of days between day 1 and day 2. 
305 Fixes things up when you go over the first day of the year. For 
instance, without this line, the computer would say that there are 
-364 days from December 31 to January 1 ! 

31 0 Prints the results. 

500 The data line that holds the number of days in each month. 


40 



Days to Go 

No matter how much fun school is, everyone likes to figure out 
how many days until summer vacation. While you’re at it, 
how many days until your birthday? Until Christmas? 

Until Halloween? Until whenever? 

10 GR.0 
20 D1=0 : D2=0 
30 PRINT "HOW MANY DAYS" 

40 PRINT "FROM MONTH"; 

50 INPUT M 

60 PRINT " DAY" ; 

70 INPUT D 

90 IF M=1 THEN GOTO 150 
100 FOR X=1 TO M-l 
110 READ N 
120 LET D1=D1+N 
130 NEXT X 
140 RESTORE 
150 LET D1=D1+D 
160 PRINT "DAY 1 IS #";D1 
165 PRINT 

170 PRINT " TO MONTH" ; 

180 INPUT M 

190 PRINT " DAY"; 

200 INPUT D 

220 IF M=1 THEN GOTO 280 
230 FOR X=1 TO M-l 
240 READ N 
250 LET D2=D2+N 
260 NEXT X 
270 RESTORE 
280 LET D2=D2+D 
290 PRINT "DAY 2 IS #";D2 

295 PRINT 
300 T=D2-D1 

305 IF T<0 THEN T=T+365 
310 PRINT "THERE ARE ";T;" DAYS TO GO." 

500 DATA 31,28,31,30,31,30,31,31,30,31,30,31 
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APPENDIX 

Abbreviations, 45 
Control Graphics Keyboard, 46 
Graphics Sheets, 47-52 
Graphics 0, 47 
Graphics 1, 48 
Graphics 2, 49 
Graphics 3, 50 
Graphics 5, 51 
Graphics 7, 52 
Musical Notes, 53 
Saving Programs on Cassette, 54 
Setcolor Chart, 55 
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This is a partial list of the abbreviations available. Use them, but remember 
what they stand for! 
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SE. SETCOLOR 
SO. SOUND 



Control Graphics Keyboard 
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Photograph reprinted by permission of Atari, Inc. © 1980 


Graphics 0 Sheet 
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Graphics 3 Sheet 
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Graphics 7 Sheet 
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Musical Notes 

Use the numbers assigned to the notes to create your own computer songs! 
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Saving Programs on Cassette 

Are you having problems? I find this procedure to be more reliable than the 
usual CSAVE-CLOAD. It takes a little longer, but it saves a lot of time and 
aggravation in the long run. 
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Setcolor Chart 

Color it in to help you out! 
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CLAIRE BAILEY PA55AMTIM0 

SCHOOL 
DAYS 


School days, school days, 
dear old Golden Rule days! 


In spite of what some children say, school is fun! Claire Bailey 
Passantino has created bit-sized computer programs that allow your 
child to relive the exciting anticipation-filled first day of school, the 
often funny excuses for lost homework, challenging math and spelling 
quizzes . . . even the after-school basketball games. 

School Days, another Itty Bitty Bytes book in the Creative 
Pastimes series, encourages your child to explore the magic of your 
home computer. The short, easy-to-do programming activities are 
designed to delight your youngsters’ eyes, ears and mind. Each 
program is accompanied by programming hints and suggestions for 
parents and teachers. 

Help your child leam, grow and play — the computer way! 

Some of the activities in School Days include: 

Clothing the Bod ★ The Dog Ate It ★ Spelling Counts! ★ State the 
States ★ Jump Rope ★ Science ★ Report Card ★ The Big Game ★ 
Field Trip ★ We Love Math 

Other Itty Bitty Bytes books: 

Itty Bitty Bytes of Space 
Matilda the Cat 

For more information on Creative Pastimes Books 
write to: 


Reston Computer Group 
Reston Publishing Company, Inc. 

11480 Sunset Hills Road 
Reston, Virginia 22090 

21898 68867 
0-8359-6886-3 


